BMUG PD-ROM BV3/BMUG PD-ROM Version BV3 (CDRM1097900).iso/HyperCard/Business/SalesTax&IncomeReports/Sales Tax/Sales Tax/stack_-1.xml

Extensible Markup Language | 1991-07-15 | 16KB | 16 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>9</cardCount>
    <cardID>34428</cardID>
    <listID>2933</listID>
    <cantModify><false /></cantModify>
    <cantDelete><true /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>on openStackcreateMenuglobal FED, fedRate,GEN, genRate,quartSecs,myYear,goGraph,SavLvlput word 4 of the long date into myYearput line 1 of card fld "current rates" of card "heading" into FEDput FED into fedRatedelete last char of FEDput line 2 of card fld "current rates" of card "heading" into GENput GEN into genRatedelete last char of GENput cd fld "quarterseconds" of cd "heading" into quartSecs -- sets the quarter parameterput the userLevel into SavLvlset the userLevel to 5pass openStackend openStackon createMenuif there is a menu "Sales Tax" then exit createMenucreate menu "Sales Tax"put createMenuItems() into menu "Sales Tax" with menuMsg createMenuMsgs()set commandChar of menuItem 1 of menu "Sales Tax" to "A"set commandChar of menuItem 3 of menu "Sales Tax" to "N"set commandChar of menuItem 5 of menu "Sales Tax" to "K"set commandChar of menuItem 7 of menu "Sales Tax" to "J"set commandChar of menuItem 9 of menu "Sales Tax" to "G"end createMenufunction createMenuItemsreturn "Help with this stack..." & return & ¬"--" & return & ¬"New Entry" & return & ¬"--" & return & ¬"Plot Graph" & return & ¬"--" & return & ¬"Print Tax Report" & return & ¬"--" & return & ¬"Quarterly Dates/Tax Rates" & returnend createMenuItemsfunction createMenuMsgsreturn "About" & return & ¬"" & return & ¬"entryRoutine" & return & ¬"" & return & ¬"PLOT" & return & ¬"" & return & ¬"salesTaxReport" & return & ¬"" & return & ¬"qDtR"end createMenuMsgson checkUserCancelif the mouseClick thenchoose browse toolexit to hyperCardend ifend checkUserCancelon qDtRvisual effect barn door opengo card headinganswer "Press the "&return&quote&"show tax rate"&quote&" or the "&return&quote&"show quarterly dates"&quote¬&" button"&return&"to evaluate the settings that control the tax rates and the quarterly dates."&return&return&"To modify the settings press the respective"&&quote&"reset"&quote&&"button revealed."end qDtRon Aboutif "About" is not in the name of this card thenvisual effect iris closego card "about this stack"lock screenhide card pictureunlock screen with visual effect wipe rightelseanswer "You are where you want to be."end ifend Abouton salesTaxReportif "data report" is not the short name of this card thenvisual effect shrink to centergo card "data report"end ifsend mouseUp to bg button "print report"end salesTaxReporton entryRoutinelock screengo last card of bg id 10307doMenu "New Card"send routineEntry to bg id 10307end entryRoutine∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ --GRAPHING SECTION-- ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on PLOTglobal goGraphif goGraph is empty thenanswer "When a graph is plotted, in what form would you like it to appear?" with "fever"or "pie" or "column"put it into goGraphend ifanswer "You can--"&return&"go to a recently made graph..."&return&"or"&return&"make a graph of one clients' invoices..."&return&"or"&return&"create a new graph..."¬with "recent graph" or "graph client" or "new graph"if it is "new graph" thenanswer "Covering a one or two year period?" with "cancel"or "two" or "one"if it is "cancel" then exit PLOTif it is "one" thenplotYearexit PLOTend ifif it is "two" thenset cursor to 4send plotTwoYear to cd "intro"exit PLOTend ifend ifif it is "recent graph" thenvisual effect scroll down to blacklock screenunlock screen with visual effect venetian blindsgo card goGraphexit PLOTend ifif it is "graph client" thenplotClientend ifend PLOT∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ PLOY Year ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on plotYearglobal goGraph,quartSecs,myYearset lockMessages to truerepeatask "For the year of..."with myYearif it is empty then exit plotYearif (length of it < 4) or (length of it>4) then answer "Please enter a real year."&return&return&"It must be four characters in length."else exit repeatend repeatput it into myYearput empty into INCOME ---(money/quarter)put empty into MONTHS ---(money/calendar year)put empty into JOBS ---(invoices/calendar year)put empty into INVOICES ---(invoices/quarterly year)visual effect scroll downgo card "heading"lock screenput "It'll take a bit of time to compile the info to graph." into card fld "Title"unlock screen with visual dissolveset cursor to 4lock screengo background id 10307--∞∞∞∞∞∞∞∞∞∞∞ START OF QUARTERs   ∞∞∞∞∞∞∞∞∞∞--∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ 1>2 or 2>3 ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞if (item 1 of quartSecs > item 2 of quartSecs) or (item 2 of quartSecs > item 3 of quartSecs) thenrepeat for the number of cards of this backgroundif (item 1 of fld "date items" = (myYear-1)) thenif bg fld "1992secs" > item 1 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 1 of INCOMEend ifend ifif (item 1 of quartSecs > item 2 of quartSecs) and (item 1 of fld "date items" = (myYear)) thenif bg fld "1992secs" < item 2 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 1 of INCOMEend ifend ifif (item 1 of fld "date items" = (myYear)) thenif bg fld "1992secs" > item 3 of quartSecs and bg fld "1992secs" < item 4 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 2 of INCOMEend ifif bg fld "1992secs" > item 5 of quartSecs and bg fld "1992secs" < item 6 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 3 of INCOMEend ifif bg fld "1992secs" > item 7 of quartSecs and bg fld "1992secs" < item 8 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 4 of INCOMEend ifend ifif myYear = item 1 of fld "date items" thenadd 1 to JOBSrepeat with i = 1 to 12if item 2 of fld "date items" = i thenadd fld "subtotal" to line i of MONTHSend ifend repeatend ifgo next cardend repeatend if--∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ 3>4 ∞∞∞∞∞∞∞∞∞∞∞∞∞∞if (item 3 of quartSecs > item 4 of quartSecs) thenrepeat for the number of cards of this backgroundif item 1 of fld "date items" = myYear thenif bg fld "1992secs" < item 4 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 2 of INCOMEend ifif (bg fld "1992secs" > item 5 of quartSecs) and (bg fld "1992secs" < item 6 of quartSecs) then--(2nd quarter)add 1 to INVOICESadd fld "subtotal" to line 3 of INCOMEend ifif (bg fld "1992secs" > item 7 of quartSecs) and (bg fld "1992secs" < item 8 of quartSecs) then--(4th quarter)add 1 to INVOICESadd fld "subtotal" to line 4 of INCOMEend ifend ifif item 1 of fld "date items" = (myYear-1) thenif (bg fld "1992secs" > item 1 of quartSecs) and (bg fld "1992secs" < item 2 of quartSecs) then--(4th quarter)add 1 to INVOICESadd fld "subtotal" to line 1 of INCOMEend ifif bg fld "1992secs" > item 3 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 2 of INCOMEend ifend ifif myYear = item 1 of fld "date items" thenadd 1 to JOBSrepeat with i = 1 to 12if item 2 of fld "date items" = i thenadd fld "subtotal" to line i of MONTHSend ifend repeatend ifgo next cardend repeatend if--∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ 5>6 ∞∞∞∞∞∞∞∞∞∞∞∞∞∞if (item 5 of quartSecs > item 6 of quartSecs) thenrepeat for the number of cards of this backgroundif item 1 of fld "date items" = myYear thenif bg fld "1992secs" > item 5 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 3 of INCOMEend ifif (bg fld "1992secs" > item 3 of quartSecs) and (bg fld "1992secs" < item 4 of quartSecs) then--(2nd quarter)add 1 to INVOICESadd fld "subtotal" to line 2 of INCOMEend ifif (bg fld "1992secs" > item 1 of quartSecs) and (bg fld "1992secs" < item 2 of quartSecs) then--(4th quarter)add 1 to INVOICESadd fld "subtotal" to line 1 of INCOMEend ifend ifif item 1 of fld "date items" = (myYear+1) thenif bg fld "1992secs" < item 6 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 3 of INCOMEend ifif (bg fld "1992secs" > item 7 of quartSecs) and (bg fld "1992secs" < item 8 of quartSecs) then--(3rd quarter)add 1 to INVOICESadd fld "subtotal" to line 4 of INCOMEend ifend ifif myYear = item 1 of fld "date items" thenadd 1 to JOBSrepeat with i = 1 to 12if item 2 of fld "date items" = i thenadd fld "subtotal" to line i of MONTHSend ifend repeatend ifgo next cardend repeatend if--∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ 7>8 ∞∞∞6>7∞∞∞∞∞∞∞∞∞∞∞if (item 7 of quartSecs > item 8 of quartSecs) or (item 6 of quartSecs > item 7 of quartSecs) thenrepeat for the number of cards of this backgroundif (item 1 of fld "date items" = (myYear+1)) thenif bg fld "1992secs" < item 8 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 4 of INCOMEend ifend ifif (item 7 of quartSecs > item 8 of quartSecs) and (item 1 of fld "date items" = myYear) thenif bg fld "1992secs" > item 7 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 4 of INCOMEend ifend ifif (item 1 of fld "date items" = myYear) thenif (bg fld "1992secs" > item 3 of quartSecs) and (bg fld "1992secs" < item 4 of quartSecs) then--(2nd quarter)add 1 to INVOICESadd fld "subtotal" to line 2 of INCOMEend ifif (bg fld "1992secs" > item 5 of quartSecs) and (bg fld "1992secs" < item 6 of quartSecs) then--(3rd quarter)add 1 to INVOICESadd fld "subtotal" to line 3 of INCOMEend ifif (bg fld "1992secs" > item 1 of quartSecs) and (bg fld "1992secs" < item 2 of quartSecs) then--(4th quarter)add 1 to INVOICESadd fld "subtotal" to line 1 of INCOMEend ifend ifif myYear = item 1 of fld "date items" thenadd 1 to JOBSrepeat with i = 1 to 12if item 2 of fld "date items" = i thenadd fld "subtotal" to line i of MONTHSend ifend repeatend ifgo next card of this backgroundend repeatend if----8>1 (fiscal year coincides with calendar year)if (item 8 of quartSecs > item 1 of quartSecs) thenrepeat for the number of cards of this backgroundif item 1 of fld "date items" = myYear thenif bg fld "1992secs" > item 1 of quartSecs and bg fld "1992secs" < item 2 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 1 of INCOMEend ifif bg fld "1992secs" > item 3 of quartSecs and bg fld "1992secs" < item 4 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 2 of INCOMEend ifif bg fld "1992secs" > item 5 of quartSecs and bg fld "1992secs" < item 6 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 3 of INCOMEend ifif bg fld "1992secs" > item 7 of quartSecs and bg fld "1992secs" < item 8 of quartSecs thenadd 1 to INVOICESadd fld "subtotal" to line 4 of INCOMEend ifadd 1 to JOBSrepeat with i = 1 to 12if item 2 of fld "date items" = i thenadd fld "subtotal" to line i of MONTHSend ifend repeatend ifgo next card of this backgroundend repeatend if-------end of cycle ------put empty into card field "title" of cd "heading" --msg needs to be sent since lockmsges is in effectif MONTHS = empty and INCOME = empty thengo cd "heading"unlock screen with venetian blindsput "You haven't made any money! Sorry." into card field "title" of cd "heading"exit plotYearend ifset lockMessages to falsego card goGraphput empty into bg fld "monthlabels"put empty into bg fld "quarterlabels"if the hilight of bg button "calendar" is true thenput "Yearly Income"&&Year into bg fld "labels title"put "by month" into bg fld "graph title"end ifif the hilight of bg button "quarter" is true thenput "Fiscal"&&myYear into bg fld "labels title"put "by quarter" into bg fld "graph Title"end ifif the hilight of bg button "client" is true then --if the button was set to client this resets it to calenadarput "Yearly Income"&&Year into bg fld "labels title"put "by month" into bg fld "graph title"set the hilite of bg button "client" to falseset the hilite of bg button "calendar" to trueend ifput empty into fld "data"put empty into fld "data2"put empty into fld "data3"put INCOME into fld "data2"put MONTHS into fld "data"put INVOICES into fld "data3"put ", "&JOBS after line 1 of fld "data3"put"Jan"&return&"Feb"&return&"Mar"&return&"Apr"&return&"May"&return&"June"&return&"July"&¬return&"Aug"&return&"Sept"&return&"Oct"&return&"Nov"&return&"Dec" into bg fld "monthlabels"put"1st Quarter"&&it&return&"2nd Quarter"&&it&return&"3rd Quarter"&&it&return&"4th Quarter"&&it into bg fld "quarterlabels"send mouseUp to bg button "drawGraph"end plotYear---------------------------------------plot client---------------------on plotClientglobal userName,goGraphask "What is the clients name?" with userNameif it is empty then exit plotClientput it into findClientput empty into incomePaid ---(money paid)put empty into invoiceNo ---(invoice number)put empty into Dates ---(dates)put empty into dateSeconds --(intermediary holder)put empty into dateStartput empty into dateEndvisual effect scroll downgo card "heading"lock screenput "It'll take some time to compile the info to graph" into card fld "Title"unlock screen with visual dissolveset cursor to 4lock screengo background id 10307repeat for the number of cards of this backgroundif findClient = bg fld "client" thenput fld "subtotal" & return after incomePaidput fld "invoice no." & return after invoiceNoput fld "date items" into dateSecondsconvert dateSeconds to secondsput dateSeconds & "," after Datesend ifgo next card of this backgroundend repeatput empty into card field "title" of cd "heading" --msg needs to be sent since lockmsges is in effectif incomePaid = empty thengo card "heading"unlock screen with venetian blindsput "There doesn't seem to be any invoices paid from: "&findClient into card field "title" of cd "heading"end ifif Dates = empty thenbeepexit plotClientend ifgo card goGraphif Dates ≠ empty thenput max(Dates) into dateEndput min(Dates) into dateStartconvert dateStart to short dateconvert dateEnd to short dateend ifhide bg fld "monthlabels"hide bg fld "quarterlabels"hide bg fld "data"hide bg fld "data2"show bg fld "clientlabels"show bg fld "clientdata"put empty into bg fld "labels title"put empty into bg fld "graph Title"unlock screen with visual dissolveput findClient && "Income" into bg fld "labels title"put "from"&&dateStart&&"to"&&dateEnd into bg fld "graph Title"put findClient && "Income" into bg fld "labels title2"put "from"&&dateStart&&"to"&&dateEnd into bg fld "graph Title2"put incomePaid into fld "clientdata"put invoiceNo into bg fld "clientlabels"if the hilight of bg button "client" is false then set the hilite of bg button "client" to trueif the hilite of bg button "calendar" is true then set the hilite of bg button "calendar" to falseif the hilite of bg button "quarter" is true then set the hilite of bg button "quarter" to falsesend mouseUp to bg button "drawGraph"end plotClient∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ END GRAPHING SECTION ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on twoPlacesput the param of 1 i